home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO003.dsk / DEMOS / RUNNERS.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  50 lines
  1. 10  PRINT  CHR$(4);"BLOAD /PRODOS.03/DEMOS/RUNNER.SHAPES,A$6000"
  2. 20  POKE 232,0: POKE 233,96
  3. 30 Y = 100:Z = 0: HGR2 
  4. 40  HCOLOR= 7: SCALE= 1: DRAW 15 AT 51,30: ROT= 32: DRAW 15 AT 51,30
  5. 50  HCOLOR= 1: ROT= 0
  6. 60  HPLOT 0,Y +Z TO 273,Y +Z:Z = Z +1:Y = Y +Z: IF Y >190  THEN 80
  7. 70  GOTO 60
  8. 80  HCOLOR= 6: FOR X = 274 TO 278  STEP 2: HPLOT X,0 TO X,191: NEXT X
  9. 90  HCOLOR= 3: DRAW 9 AT 2,99
  10. 100 A = 1:B = 2:C = 1:E = 1:F = 2:G = 1:K = 1:L = 2:M = 1:Z = 2
  11. 110  XDRAW 1 AT 2,99: FOR J = 1 TO Z *30: NEXT J
  12. 120  FOR I = 1 TO 40
  13. 130  XDRAW A AT B,99:B = B +C
  14. 140  IF A >9  THEN C =  -3: GOTO 200
  15. 150  IF A >6  THEN A = A +1: GOTO 230
  16. 160  IF B >263  THEN A = 7:C = 0: GOTO 230
  17. 170  IF A <5  THEN A = A +1: GOTO 230
  18. 180  IF A = 6  THEN A = 1: GOTO 230
  19. 190  IF A >6  THEN A = A +1: GOTO 230
  20. 200  IF B <9  THEN A = 1:C = 1: GOTO 230
  21. 210  IF A <14  THEN A = A +1: GOTO 230
  22. 220  IF A = 14  THEN A = 10
  23. 230  XDRAW A AT B,99
  24. 240  IF Z = 2  THEN 490
  25. 250  XDRAW E AT F,99:F = F +G
  26. 260  IF E >9  THEN G =  -2: GOTO 320
  27. 270  IF E >6  THEN E = E +1: GOTO 350
  28. 280  IF F >263  THEN E = 7:G = 0: GOTO 350
  29. 290  IF E <5  THEN E = E +1: GOTO 350
  30. 300  IF E = 6  THEN E = 1: GOTO 350
  31. 310  IF E >6  THEN E = E +1: GOTO 350
  32. 320  IF F <9  THEN E = 1:G = 1: GOTO 350
  33. 330  IF E <14  THEN E = E +1: GOTO 350
  34. 340  IF E = 14  THEN E = 10
  35. 350  XDRAW E AT F,99
  36. 360  IF Z = 1  THEN 490
  37. 370  XDRAW K AT L,99:L = L +M
  38. 380  IF K >9  THEN M =  -4: GOTO 440
  39. 390  IF K >6  THEN K = K +1: GOTO 470
  40. 400  IF L >263  THEN K = 7:M = 0: GOTO 470
  41. 410  IF K <5  THEN K = K +1: GOTO 470
  42. 420  IF K = 6  THEN K = 1: GOTO 470
  43. 430  IF K >6  THEN K = K +1: GOTO 470
  44. 440  IF L <9  THEN K = 1:M = 1: GOTO 470
  45. 450  IF K <14  THEN K = K +1: GOTO 470
  46. 460  IF K = 14  THEN K = 10
  47. 470  XDRAW K AT L,99
  48. 480  GOTO 130
  49. 490  FOR J = 1 TO Z *20: NEXT J,I
  50. 500 Z = Z -1: GOTO 110